lisp/finder.el (finder-unload-function): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f2717332982261d7bffa0fb518a8c2cf4eef326..8150de7bba21eb3d770b1dd63cd704c2057dc3ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-28  Juanma Barranquero  <lekktu@gmail.com>
+
+       * finder.el (finder-unload-function): New function.
+
 2014-02-28  Juanma Barranquero  <lekktu@gmail.com>
 
        * dframe.el (dframe-detach):

diff --git a/lisp/finder.el b/lisp/finder.el
index d060d69e427273d6c9374bb483e13fa6e6a352ca..712db440bd32ee6674e5d48ad4e789d429ffe244 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -431,6 +431,12 @@ Delete the window and kill all Finder-related buffers."
   (let ((buf "*Finder*"))
     (and (get-buffer buf) (kill-buffer buf))))
 
+(defun finder-unload-function ()
+  "Unload the Finder library."
+  (with-demoted-errors (unload-feature 'finder-inf t))
+  ;; continue standard unloading
+  nil)
+
 \f
 (provide 'finder)